home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / demo / takara / menu2.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-18  |  1.8 KB  |  59 lines
  1. 5310 GOSUB *MENU_MOYOU
  2. 5320 '
  3. 5330 *BUNKI
  4. 5340  LOCATE 30,4 :COLOR 5:PRINT " 数学の宝箱  メニュー";
  5. 5345  LOCATE 25,17:COLOR 6:PRINT "■ 円  の  面  積  劇  場   デモ";
  6. 5350  LOCATE 25,18:COLOR 6:PRINT "■ SIN COS グラフのできかた デモ";
  7. 5360  LOCATE 25,19        :PRINT "■ SIN COS の値調べ   アニメ付き";
  8. 5370  LOCATE 25,20        :PRINT "■ TOWNS 君が作る 正多角形  デモ";
  9. 5375  LOCATE 25,21        :PRINT "■ 終 わ り ま す よ ･･･････････";
  10. 5420 '
  11. 5430  MOUSE 5:MOUSE 0:MOUSE 1,318,418,1
  12. 5440  X=MOUSE(4,0):Y=MOUSE(5,0)
  13. 5445  IF X>200 AND X<450 AND Y>322 AND Y<334 THEN GOTO *BU0
  14. 5450  IF X>200 AND X<450 AND Y>342 AND Y<354 THEN GOTO *BU1
  15. 5460  IF X>200 AND X<450 AND Y>363 AND Y<374 THEN GOTO *BU2
  16. 5470  IF X>200 AND X<450 AND Y>382 AND Y<394 THEN GOTO *BU3
  17. 5475  IF X>200 AND X<450 AND Y>402 AND Y<414 THEN SYSTEM
  18. 5480  GOTO 5440
  19. 5490 '
  20. 5500 *MENU_MOYOU
  21. 5510  CLS
  22. 5520  PI=3.14159!:C=5
  23. 5530  R=9
  24. 5540   FOR TH=0 TO 2*PI STEP PI/R
  25. 5550     FOR P=0 TO TH STEP PI/R
  26. 5560       X1=80*COS(TH)
  27. 5570       Y1=80*SIN(TH)
  28. 5580       X2=80*COS(P)
  29. 5590       Y2=80*SIN(P)
  30. 5600       LINE (X1+320,200-Y1)-(X2+320,200-Y2),PSET,C
  31. 5610     NEXT
  32. 5620     WAIT 5
  33. 5630   NEXT
  34. 5640  RETURN
  35. 5650 '
  36. 5702 *BU0
  37. 5703  LOCATE 25,17:COLOR 2:PRINT "■ 円  の  面  積  劇  場   デモ";
  38. 5704  MOUSE 5
  39. 5705  CHAIN "MENSE.BAS",,ALL
  40. 5706  RUN "MENSE.BAS"
  41. 5710 '
  42. 5720 *BU1
  43. 5725  LOCATE 25,18:COLOR 2:PRINT "■ SIN COS グラフのできかた デモ";
  44. 5726  MOUSE 5
  45. 5730  CHAIN "COS_SIN.BAS",,ALL
  46. 5740  RUN "COS_SIN.BAS"
  47. 5750 '
  48. 5760 *BU2
  49. 5765  LOCATE 25,19:COLOR 2:PRINT "■ SIN COS の値調べ   アニメ付き";
  50. 5766  MOUSE 5
  51. 5770  CHAIN "DEMO.BAS",,ALL
  52. 5780  RUN "DEMO.BAS"
  53. 5790 '
  54. 5800 *BU3
  55. 5805  LOCATE 25,20:COLOR 2:PRINT "■ TOWNS 君が作る 正多角形  デモ";
  56. 5806  MOUSE 5
  57. 5810  CHAIN "SEITAKAK.BAS",,ALL
  58. 5820  RUN "SEITAKAK.BAS"
  59.